unit UCidade;

interface
    uses
      UGenerica, UEstado;
    type
      Cidade = class (Generica)

protected
      nome     : string;
      ddd      : integer;
      codMun   : integer;
      umEstado : Estado;

public
    constructor Create;
    destructor  Destroy;

    procedure setNome   (vNome   : string);
    procedure setDdd    (vDdd    : integer);
    procedure setCodMun (vCod    : integer);
    procedure setEstado (vEstado : Estado);

    function getNome     : string;
    function getDdd      : integer;
    function getCodMun   : integer;
    function getEstado   : Estado;

end;




implementation

{ Cidade }

constructor Cidade.Create;
begin
    inherited;
    umEstado := Estado.Create;
end;

destructor Cidade.Destroy;
begin

end;

function Cidade.getCodMun: integer;
begin
    Result := codMun;
end;

function Cidade.getDdd: integer;
begin
    Result :=  ddd;
end;

function Cidade.getEstado: Estado;
begin
   Result := umEstado;
end;

function Cidade.getNome: string;
begin
   Result := nome;
end;

procedure Cidade.setCodMun(vCod: integer);
begin
    codMun := vCod;
end;

procedure Cidade.setDdd(vDdd: integer);
begin
   ddd := vDdd;
end;

procedure Cidade.setEstado(vEstado: Estado);
begin
    umEstado := vEstado;
end;

procedure Cidade.setNome(vNome: string);
begin
    nome := vNome;
end;

end.
